home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / graphic / hpglvu10.zip / HPGLVIEW.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-18  |  33KB  |  999 lines
  1. program HPGLVIEW;
  2. {-----------------------------------------------------------------------------}
  3.  (*                          An HPGL viewer
  4.  
  5.     The viewer takes a file of HPGL commands and displays the plot commands
  6.     on the screen.
  7.  
  8.     It always represents the page (A3 or A4) lying sideways on the
  9.     screen, to preserve the maximum resolution, and ignores the aspect ratio
  10.     of the screen for the same reason.
  11.  
  12.     Its designed to show you what the plot looks like on the page not be
  13.     an absolute mimic of a plot.  If you need absolute precision, plot it.
  14.  
  15. -------------------------------------------------------------------------------
  16.             HPGLVIEW - a on-screen Previewer for HPGL files
  17.     
  18.                 Copyright (C) 1991 Giovanni S. Moretti
  19.  
  20.     This program is free software; you can redistribute it and/or modify
  21.     it under the terms of the GNU General Public License as published by
  22.     the Free Software Foundation; either version 1, or (at your option)
  23.     any later version.
  24.  
  25.     This program is distributed in the hope that it will be useful,
  26.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  27.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  28.     GNU General Public License for more details.
  29.  
  30.     You should have received a copy of the GNU General Public License
  31.     along with this program; if not, write to the Free Software
  32.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  33.  
  34. -----------------------------------------------------------------------------
  35.     Giovanni Moretti                    | EMAIL:  G.Moretti@massey.ac.nz
  36.     Computer Centre,  Massey University |  
  37.     Palmerston North, New Zealand       |
  38. -----------------------------------------------------------------------------
  39.  
  40.    Please send me a copy of any major hacks/improvements so I can coordinate
  41.    any new releases.
  42.  
  43.    HP-GL is (probably) a trademark of Hewlett-Packard Company.
  44.  
  45. *)
  46. {-----------------------------------------------------------------------------}
  47. { RCS Control Information
  48.   $Author: Giovanni_Moretti $
  49.   $Date: 91/04/18 15:57:59 $
  50.   $Revision: 1.1 $
  51.   $Log:    hpglview.pas $
  52. Revision 1.1  91/04/18  15:57:59  ROOT_DOS
  53. Initial revision
  54.  
  55. } 
  56. uses graph, dos, crt, smalfont, { Like FONTS.PAS with only SMALLFONT left}
  57.      drivers;
  58.  
  59. const A3_char_width  = 0.285; {cm}
  60.       A3_char_height = 0.375;
  61.  
  62.       A4_char_width  = 0.187;
  63.       A4_char_height = 0.269;
  64.  
  65.       unknown_max    = 100;
  66.  
  67. var pen_down     : boolean;
  68.     cmd          : string;          {Current HPGL command being done}
  69.     x, y, x1,y1  : real;            {and the numeric arguments to this cmd}
  70.     lbl          : string;          {or a character string arg for LB cmd }
  71.  
  72.     filename     : string;
  73.     inf          : text;            {Input file}
  74.  
  75.     screen_max_X : integer;         {No of dots across screen -1}
  76.     screen_max_Y : integer;         {and number down            }
  77.  
  78.     Graphics_Driver  : integer;     { for BGI - may be set manually with /G }
  79.     Graphics_mode    : integer;     { for BGI - may be set manually with /G }
  80. {-----------------------------------------------------------------------------}
  81.     use_plotter_units : boolean;    {If TRUE => NO Scaling, FALSE => Scale}
  82.  
  83.     x_max        : real;            {Maximum and Minimum values as defined}
  84.     x_min        : real;            {by the SC (Scale) command            }
  85.     y_max        : real;
  86.     y_min        : real;
  87.  
  88.     x_p1, y_p1   : integer;
  89.     x_p2, y_p2   : integer;
  90. {-----------------------------------------------------------------------------}
  91.     Paper_size     : integer;         {Either a 3 or 4 (A3 or A4) }
  92.     X_plot_area_mm : integer;
  93.     Y_plot_area_mm : integer;
  94.     args           : boolean;
  95.     hard_clip_X    : integer;
  96.     hard_clip_Y    : integer;
  97.  
  98.     colour         : integer;         {Current colour from video palette}
  99. {-----------------------------------------------------------------------------}
  100.     char_height    : real;         {Currently set Character Height and Width}
  101.     char_width     : real;         {Always defined - used by SI and DI cmds }
  102.  
  103.     text_direction : word;         {Used by DI cmd }
  104. {-----------------------------------------------------------------------------}
  105.     symbol_mode    : boolean;      {Whether a symbol is drawn on a PA or PR }
  106.     symbol_char    : char;         {command - used by the SM instruction    }
  107. {-----------------------------------------------------------------------------}
  108.     {Remember unimplemented commands in this array for later }
  109.  
  110.     unknown_cmds   : array [1..unknown_max] of string;
  111.     unknown_count  : integer;
  112.  
  113.     cnt          : integer;
  114.     pause        : char;
  115.  
  116.     ch           : char;
  117.     debug        : boolean;
  118.     digits       : set of char;
  119.     i            : integer;      {General Purpose Integer}
  120.     finished     : boolean;
  121.  
  122.     initialise_cmd_count : integer;  {Used to pause on 2nd, 3rd ... IN cmd}
  123.     IP_cmd_count         : integer;  {Used to change colours on 2nd .. IP cmd}
  124.     auto_detect_graphics : boolean;  {altered be /G command line option }
  125. {-----------------------------------------------------------------------------}
  126.  
  127. procedure SET_DEFAULT_TEXT_DIRECTION;
  128. begin
  129.   text_Direction:= HorizDir;
  130.   SetTextJustify(LeftText,  BottomText);
  131. end;
  132.  
  133. {-----------------------------------------------------------------------------}
  134. { Set up the appropriate scaling factors to draw text of the size defined by
  135.   HEIGHT and WIDTH.
  136.  
  137.   HEIGHT and WIDTH are remembered in CHAR_HEIGHT and CHAR_WIDTH so
  138.   this procedure  can be reused if TEXT_DIRECTION is redefined.
  139.  
  140.   This procedure is used whenever it is necessary to change either
  141.   text size or direction.
  142. }
  143.  
  144. procedure SET_TEXT_SIZE (width, height : real); {Arguments are in Centimetres}
  145.  
  146. var x_top, x_bottom, y_top, y_bottom : integer;
  147.     width_in_mm, height_in_mm        : real;
  148.     scale_x, scale_y                 : real;
  149.     letter_height, letter_width      : integer;
  150.  
  151. begin
  152.       {Scale ratios by 100 so as not to lose too much precision on ROUND()}
  153.       x_top:= 100; x_bottom:= 100; y_top:= 100; y_bottom:= 100;
  154.  
  155.       {This Section Gives "Approximately" the correct size lettering }
  156.       SetTextStyle(SmallFont, HorizDir, 2);
  157.       letter_height:= TextHeight('M');     {Remember Size of Standard Characters}
  158.       letter_width := TextWidth('M');
  159.  
  160.       width_in_mm := letter_width / screen_max_X * X_plot_area_mm;
  161.       scale_x:= (width*10) / width_in_mm;     { *10 as SI args are in cm}
  162.       if scale_x > 10 then scale_x:= 10;
  163.       if scale_X > 1 then x_top   := round(scale_x   *100)
  164.       else                x_bottom:= round(1/scale_X *100);
  165.  
  166.       height_in_mm:= Letter_Height / screen_max_Y * Y_plot_area_mm;
  167.       scale_y:= (height*10) / height_in_mm;   { *10 as SI args are in cm}
  168.       if scale_y > 10 then scale_y:= 10;
  169.       if scale_y > 1 then Y_top   := round(scale_Y   *100)
  170.       else                Y_bottom:= round(1/scale_Y *100);
  171.  
  172.       SetUserCharSize(x_top, x_bottom, y_top, y_bottom);
  173.       SetTextStyle(smallFont, text_direction, UserCharSize);
  174. end;
  175.  
  176. {-----------------------------------------------------------------------------}
  177.  
  178. procedure SET_DEFAULT_TEXT_SIZE;
  179. begin
  180.   if paper_size = 4 then      { A4 Paper }
  181.     begin
  182.       char_height   := A4_char_height;
  183.       char_width    := A4_char_width;
  184.     end
  185.   else                        { A3 Paper }
  186.     begin
  187.       char_width    := A3_char_width;
  188.       char_height   := A3_char_height;
  189.     end;
  190.   set_text_size(char_width, char_height);
  191. end;
  192. {-----------------------------------------------------------------------------}
  193.  
  194. procedure SET_P1_P2 (x, y, x1, y1 : integer);
  195. begin
  196.   x_p1:= x;
  197.   y_p1:= y;
  198.   x_p2:= x1;
  199.   y_p2:= y1;
  200. end;
  201. {-----------------------------------------------------------------------------}
  202.  
  203. procedure SET_DEFAULT_P1_P2;
  204. begin
  205.   if paper_size = 4 then     { A4 Paper }
  206.     begin
  207.       x_p2          := 10430;
  208.       x_p1          :=   430;
  209.       y_p2          :=  7400;
  210.       y_p1          :=   20